home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Frameworks / Dragonsmith 1.1.1 / CW 4.5 Update / AppleEventQueue.cp < prev    next >
Encoding:
Text File  |  1994-07-04  |  2.0 KB  |  83 lines  |  [TEXT/MMCC]
  1. /*
  2.     AppleEventQueue.c
  3.     
  4.     A simple queue used to keep track of suspended Apple events
  5.     
  6.     Created:    02 Sep 1992    Constructor, Put, Get — add a destructor later? (it should call an error-returning handler)
  7.     Modified:    01 Jul 1994 Francis H Schiffer, 3rd - add return value to Get.
  8.     
  9.     Copyright © 1992 by Paul M. Hoffman
  10.     Send comments or suggestions to paul.hoffman@umich.edu -or- dragonsmith@umich.edu
  11.     
  12.     This source code may be freely used, altered, and distributed in any way as long as:
  13.         1.    It is GIVEN away rather than sold (except as expressly permitted by the author)
  14.         2.    This statement and the above copyright notice are left intact.
  15.  
  16. */
  17.  
  18. #include    "AppleEventQueue.h"
  19.  
  20. AppleEventQueue::AppleEventQueue (void)
  21. {
  22.     head = tail = NULL;
  23.     numAEvents = 0;
  24. }
  25.  
  26. OSErr AppleEventQueue::Put (AppleEvent *event, AppleEvent *reply, AEHandlerFunc handler, long refcon)
  27. {
  28.     // Add an Apple event and its associated data to end the queue
  29.     
  30.     PendingAERec    **h;
  31.     
  32.     h = (PendingAERec **) NewHandle (sizeof (PendingAERec));
  33.     if (h == NULL)
  34.         return memFullErr;
  35.         
  36.     numAEvents++;
  37.     
  38.     (*h)->event = *event;
  39.     (*h)->reply = *reply;
  40.     (*h)->handler = handler;
  41.     (*h)->refcon = refcon;
  42.     (*h)->next = NULL;
  43.     
  44.     if (head == NULL)            // If the queue is empty, set head = the new entry
  45.         head = h;
  46.     else                        // Otherwise, set 
  47.         (*tail)->next = h;
  48.     tail = h;                    // Insertion is always done at the tail
  49.     
  50.     return noErr;
  51. }
  52.  
  53. OSErr AppleEventQueue::Get (AppleEvent *event, AppleEvent *reply, AEHandlerFunc *handler, long *refcon)
  54. {
  55.     // Get an apple event and its associated data from the front of the queue
  56.  
  57.     PendingAERec    **h;
  58.     
  59.     if (numAEvents <= 0)                // Make a sanity check — we don't want to return a bogus function address!
  60.         return noOutstandingHLE;
  61.     
  62.     h = head;
  63.     if (h == NULL) {                        // One more sanity check
  64.         numAEvents = 0;
  65.         return noOutstandingHLE;
  66.     }
  67.     
  68.     head = (*h)->next;
  69.     if (--numAEvents == 0)
  70.         tail = NULL;
  71.         
  72.     // Return values
  73.     *event = (*h)->event;
  74.     *reply = (*h)->reply;
  75.     *handler = (*h)->handler;
  76.     *refcon = (*h)->refcon;
  77.     
  78.     DisposHandle ((Handle) h);
  79.  
  80.     return noErr;    /* fhs 1994 july 1 */
  81. }
  82.  
  83.